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! /* */ 

2 /* ETC; Global system definitions */ 

3 /* */ 

4 /* - "* ' ' T¥PES.H - Portable tvce definitions */ 

5 z* */ 

6 

7 ffifndef JTCPES^DEFINED 

8 Sdefine JTYPES_DEFINED 

9 

10 #if {! defined (BIT32) ! defined (BIT16) ) 

11 fezxox BIT16 or BIT32 must be defined 
1? #endif 

13 

14 /* Common types */ 

15 

16 typedef int bool ; 
17 

18 Hfndef TRUE 

19 tdefine FALSE ((bool) 0) 

20 #define TRUE ((bool) (! FALSE)) 

21 tendif 

22 

23 typedef signed char schar; 

24 typedef unsigned char uchar; 
25 

26 #ifndef _WINNT_ 

27 #define KINCHAR ((char) 0x00) // 0x80 in WTNNT.H!! 

28 #define MAXCHAR ((char) 0x7F) 

29 #endif 
30 

31 #define MINSCHAR ((char) 0x80) 

32 #def ine MAXSCHAR ( (char) 0x7F) 
33 

34 #define MINUCHAR ((char) 0x00) 

35 #define MAXUCHAR ((char) OxFF) 

36 

37 typedef void *_datap; 

38 typedef void *_codep; //$$ "void *_codep (void);" would not work 

39 

40 #ifdef cpiusplus 

41 # define NULLD 0 

42 #define NULLC 0 

43 Seise 

44 #defin« NULLD ( <_datap> 0) 

45 #define NULLC ( (_codep) 0) 

46 #endif 
47 

48 #ifndef NULL 

49 #define NULL ((void *) 0) 

50 #endif 
51 

52 /* 

53 Notes : 
54 

55 i. Types datap and codep are provided for systems /models in which 

56 data pointers are of different size than code pointers. See also 

57 type pointer in the compatibility types section of this header file. 

58 */ 
59 
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{ /* Machine types + j 

2 

3 typedef .unsigned char byte ; 

4 typedef -unsigned short int word; 

5 typedef unsigned long int dword; 
6 

7 # define MINBYTE ((byte) 0x00) 

8 ffifndef _WINNT_ 

9 #define MAXBYTE ((byte) OxFF) 
10 #endif 

21 

12 #def ine MINWORD ( (word) OxOOOOU) 

13 #ifndef _WINNT_ 

14 #define MAXWORD ( (word) OxFFFFU) 

15 tendif 

16 

17 #define MXNDWOBD ( (dword) OxOOOOOOOOUL) 

18 #ifndef _WINNT_ 

19 #define MAXDWORD ((dword) OxFFFFFFFFUL) 

20 tendif 
21 

22 /* Tolerance types (hardware -dependent) — ★/ 

23 

24 typedef unsigned int uint; //guaranteed to be at least 16 bits wide. 

25 typedef signed int sint; //guaranteed to be at least 16 bits wide* 

26 

27 #def ine MXNINT ( ( int) 0x0000) 

28 #def ine MAXINT ( ( int) 0x7FFF) 

29 

30 # define MINSINT ((sint) -32767-1) 

31 #define MAXSINT ((sint) 0x7FFF) 
32 

33 #define MINUINT ( (uint) OxOOOOU) 

34 # define MAXUINT ( (uint) OxFFFFU) 

35 

36 /* 



37 Notes : 
38 

39 1'. Use tolerance types for variables that are expected to only taxe 

40 small values which will never exceed the minimum number of guaranteed 

41 bit width, so that the compiler can choose the actual type which the 

42 underlying hardware feels most comfortable in dealing with. 
43 

44 2. Use of tolerance types is only allowed for variables of a local scope; 

45 it is prohibited for public/external variables. Writing the binary 

46 contents of a tolerance variable to a disk file is punishable by death. 
47 

48 3. Negative values are not allowed for type int. (thus it is 15 bits wide 

49 instead of 16 bits wide.) Use type sint if you are planning to assign 

50 negative values to a variable. 
51 

52 4. Alternatively , type int can be prohibited by #defining it as u $9$#$ tt 

53 (in the end of this header file) and the use of uint or sint can be 

54 promoted instead. 
55 

56 5. Operations that result in overflow/ underflow beyond the minimum «. 

57 number of guaranteed bits yield undefined results and should be 

58 avoided for all tolerance types. 



59 */ 
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/* 

typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 



Portable types 



signed 
unsigned 

short 
signed short 
unsigned short 

long 

signed ' long 
unsigned long 



char 

char 

char 

int 

int 

int 

int 

int 

int 



int8 ; 
sint8 ; 
uinta / 

intl6; 
sint!6 ; 
uintlfi ; 

int32; 
sint32; 
uint32 ; 



typedef unsigned char flgB ; 

typedef unsigned short int flglfi; 
typedef unsigned long int f lg32 ; 



typedef uint32 

#define NO CTX {( ctx)0) 



typedef uint32 

#def ine NO_ID32 { (_id32 ) 0 } 

typedef uintlS 

#define NO_IDl6 (<_id!6)0) 

typedef _id32 

#define NO ID ( ( id)0) 



typedef int 8 

#def ine MININTB 
#define MAX INT 8 

#define MINSINT8 
#def ine MAXSINT8 

# define MINUIHT8 
#define MAXUINT8 

#define MININT16 
#define MAXINT16 

#define MINSINT16 
#define MAXSINT16 

#define MINUINT16 
#define MAXUINT16 

fdefine MININT32 
#define MAXINT32 

#define MINSINT32 
#define MAXSINT32 

#cie^xne MXNUTNT32 
#define HAXUINT32 



(( intS) 
(( intS) 

( (sint8) 
UsintS) 

( (uint8) 
( (uintB) 

(( intl€) 
(( int!6) 

i (sintlS) 
( (sintlS) 

( (uintlS) 
( (uintl6) 

{( int32) 
(( int32) 

( (sint32) 
( (sint32> 

( (uint.32) 
(<uint32) 



ctx; 



id32; 



id!6; 



id; 



boo!8 ; 

0x00) 
0x7F) 

0x80) 
0x7F) 

0x00) 
OxiT) 

0x0000) 
0x7FFJ) 

0x8000} 
0x7F5T) 

OxOOOOU) 
OxFFFFU) 

OxOOOOOOOOL) 

0x7mrriTL) 

Ox80000000L) 
0X7FFFF2TFL) 

OxOOOOOOOOUZ.) 
0 xSTFTTFTTUL ) 



// max, size between _datap & uint32 

// 32-bit id 
// 16-bit id 
// default id <32-bit) 

// the shortest stand-alone boolean 
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i 

2 /* 

3 Notes : 

■* ■ " y- ~- ■ 

5 1. Use int!6 and int32 when you know the exact bit width that you want 

6 for your variable , but you do not care about the interpretation of 

7 the sign of the variable. This way, the compiler will choose an 

8 actual signed or unsigned type, depending on what the underlying 

9 hardware feels most comfortable in dealing with, 
10 

U 2. As an example, variables that are ideal candidates to be declared as 

12 intlS or int32 are sets of bitflags: although the bit capacity of such 

13 a variable is crucial, the variable will never be interpreted as a 

14 signed or unsigned value. 
15 

16 3. All integer operations defined by the C language are valid on all of 

17 the portable types, and overf low/underflow operations beyond 

18 the specified bit widths have predictable behaviour. 

19 */ 

20 

21 #endif // defined JTXPESJDEFINED 

22 
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/* 
/* 
/* 
/* 
/* 



ETC: Global system definitions 
STATUS. H - global system statae 



#ifndef 
idefine 



_STATUS_DEFINED 
"status DEFINED 



/* define status type — 

# define _jstat uint 

/* define if xxx macros 



idefine if_ret(s,e) if ( ( <s) ~ (e) ) !« ST_OK) return ( (s) ) 

idefine if cleanup (s ,e ,c) if ( ( (s) » (e)) != ST OK) return ( { <c) , (s))) 



/★ define general status values 

#define ST_0K 0 // successful operation 

/* structures /tables manipulation */ 



#define ST_ALLOC 
#define ST_NO_ROOM 
Idefine ST_OVEXFLOW 
idefine ST_UNDERFLOW 
#define ST_EMPT¥ 
#define ST_FULL 
#define STJEOF 

/* valchk */ 
#define STJTNVALID 
#define ST_BAD_VALXXE 
#define STjOOTJOFJttKGE 
#define STJNULL_PTR 
#define STJBAD_SYNTAX 
#define ST_BAD_NAME 

/* BAD errors +/ 

# define S T_UNEXP£ CTED 

#define STJPANXC 

# define STJDEADLOCK 

/* failures */ 
#define STJREFUSE 
#define ST_NO_ACTION 
idefine ST_FAILED 

/* state check */ 
#define ST_NOT_INITED 
#define ST_NOT_ACTIVE 
idefine STJfcJOT^OBEK 

/* i/o system */ 
idefine STJCOERR 
idefine ST_BAD_CHKSUM 

/* set-related */ 



20 // can't alloc (for variable size alloc/pool) 

21 // can't alloc fixed sz entry in fixed sz pool 

22 // value, buffer, whatever may overflow 

23 // value , buffer, counter, whatever may underflow 

24 // QUEUE /smth is empty - no elements 

25 // queue /smth is full 

26 // end of file 



30 // value not valid in operation context 

31 // value not valid in module's context 

32 // value out of range 

33 // NULL ptr is not valid in operation context 

34 // text/ formatted data syntax error 

35 // name invalid in module's context 



40 // unexpected condition of parm or external object 

41 // unexpected condition of self or internal object 

42 // deadlock detected 



45 // oper rejected voluntarily (inappropriate state) 

46 // oper requires no action (eg close closed file) 

47 // operation failed / not successful 



50 // object is not initialized 

51 // oper allowed only when object is active 

52 // oper allowed only when object is open 



SO // I/O error - file system / peripherals 
61 // wrong chxsum 



error 
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1 gdefine STJKOT_FOUND 62 // requested item not found 

2 #de£ine ST_DUPLICATE S3 // duplicated item is not allowed 

3 _ . 

4 /* critical section / privileges */ 

5 # define ST_BUSY 70 // in critical section (dynamic, short period) 

6 tfdefine ST_ACCESS_DENIED 71 // temporary lack of access (dynamic, long period) 

7 #define ST_PRIVTLEGE 72 // privilege violation (static) 

8 ^define ST_SC0PE_VI0LATI0N 73 // (no comment) 

9 # define ST_BAD_ACCESS 74 // access type not appropriate / not possible 
10 

11 /* operation status */ 

12 #define ST PEKDING 80 // operation is pending 

13 #de£ine STJTIMEOUT 81 // timeout has expired 

14 #de£ine ST_CANCEIiL£D 82 // operation cancelled on user's request 

15 #define ST_ABORTED 83 // op. aborted on system/module 1 s request 

16 #de£ine ST RESET 84 // object has been orderly reset 

17 # define ST CLEANUP 85 // object is about to be destroyed, now in cleanup 

18 #define ST OVERRIDE 86 // operation/entity was overriden 
19 

20 /* API */ 

21 #define ST_CANTJBIND 90 // can't bind / resolve name, handle, etc. 

22 #define ST_FPI_ERROR 91 // invalid function request, etc. 

23 #define ST WRONG VERSION 92 // incompatible version of data/code detected 

24 # define ST NOT IMPLEMENTED 93 // feature not implemented 

25 #define ST NOT SUPPORTED 94 // partial implementation; feature not supported 
26 

27 /* environment -specific */ 

28 #define ST_BAD_UID 100 // OBJ: invalid uid 

29 #define ST BAD MSG 101 // OBJ: invalid msg or object doesn't handle it 

30 #define ST 0X_CUT 102 // 0BJ:don't call more virt. objs; return ST_0X 

31 #define ST_NOT_INHERITED 103 // OBJ: method was abstract; needs to be inherited 

32 #define ST_BAD_PID 104 // OBJ: invalid pid 

33 #define ST_WIN_DFLT 210 // WIN: WindowProc: call DefWinProc, use its result 

34 Sdefine ST_BLOCK_OVEHRIDE 300 // KER: attempt to block a thread that is already 

35 blocked 

36 

37 /* string table */ 

38 

39 #i£def _ERR_STAT 
40 

41 struct STAT_TXTjS 

42 { 

43 _stat s ; 

44 char *p ; 

45 } ; 
46 

47 #de£ine DEF STATUS (s) { (s) , #s } 

48 

49 static struct STATJTXT_S _err_sts_tbl [] = 

50 { 

5 1 DEFJSTATUS ( ST_OX ) , 

52 DEF_STATUS { ST^ALLOC ) , 

53 DEFJSTATUS ( StTnQJROOH ) , 

54 DEFJSTATUS ( STJ3VERFLOW ) , 

55 DEFJSTATUS ( STJEJNDERFLOW ) , * 

56 DEF_STATUS ( ST_EMPTY ) , 

57 DEFJSTATUS ( ST_FULL ) , 

5S DBF_STAXUS ( ST_EOF ) , ( 

59 DEF STATUS ( ST~INVALID ) , 
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1 DEFJSTATUS ( ST_BAD_VALUE 

2 DEF_STATUS ( ST_OUT_OF_RANGE 

3 DEF_STATUS ( S T_NULI_PTR 

4 - DEi_STATUS ( ST_BAD_SYNTAX 

5 DEF_S TATOS ( ST_BAD_NAME 

6 DEF_S TATOS ( ST_UNEXPECTED 

7 DEF_STATOS ( STJPANIC 

8 DEF_S TATOS ( ST_DEADLOCK 

9 DEF_STATUS ( ST~REFUSE 

10 DEF_STATUS ( ST~NOjACTION 

11 DEF__S TATOS { ST_FAILED 

12 DEF_STATUS ( STNOT_IHITED 

13 DEF_STATUS { ST_NOT_ACTIVE 

14 DEF_STATUS ( ST_NOT_OPEN 

15 DEF_STATUS { ST_IOERR 

16 DEF_STATUS { ST_BAD_CHKSUM 

17 DEFJSTATUS ( ST_NOT_FOUND 

18 DEFJSTATUS ( ST_DUPLICATE 
^ 19 DEF JS TATUS ( STJBUSY 

M 20 DEFJSTATUS ( ST_ACCESS_DENIED 

€1 21 DEFJSTATUS { ST_PRIVILEGE 

|8 22 DEF_S TATOS ( ST_SCOPE_VIO_ATION 

Q 23 DEFJSTATUS ( ST_BAD_ACC£SS 

ffl 24 DEF_STATUS ( STJPENDING 

25 DEIVSTATOS ( STJTIMEOUT 

^L; 26 DEF_STATUS ( ST_CANCELLED 

27 DEIVSTATOS ( ST_ABOMED 

H 28 DEFJSTATUS ( ST_RESET 

$ 29 DEF_STATUS ( ST_CLEANUP 

Q 30 DEFJSTATUS ( S T_OVEKRIDE 

|S 31 DEFJSTATUS ( ST_C»NT_BIND 

JtJ 32 DEFJSTATUS ( STJFPIJERROR 

M 33 DEIJSTATOS ( STJRRONGJTERSION 

# 34 DEFJSTATUS ( ST_NCT_IMPLEMENTED 

0 35 DEFJSTATUS ( S T_NOT_SUPPORTED 

yk 36 DEFJSTATUS ( STJ3ADJUID 

37 DEFJSTATUS ( ST_BAD_MS6 

38 DEFJSTATUS ( STJ0K_CUT 

39 DEFJSTATUS ( STJHOT_INHEKITED 

40 DEFJSTATUS ( ST_BADJ?ID 

41 DEFJSTATUS ( S T JfflNJDFLT 

42 DEFJSTATUS ( S T J3LOCX JDVERRID E 

43 }; 
44 



45 #endi£ // _EBH_STAT 

46 

47 

48 /* status codes 1000 and up axe system- or module- specific 

49 

50 #endif // JSTATUS_DEFINED 

51 
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1 / */ 

2 /* ETC: Global system definitions */ 

3 /* * / 

4 /* ITACE.H - Interface support */ 

5 /* V 

6 /* Copyright (c) 1994-95 Object Dynamics Corp. All Rights Reserved. */ 

7 /* */ 

8 

9 #i£nde£ _IFACE_DEFINED 

10 #de£ine _1 F ACE_DEFINED 
li 

12 /* type definitions */ 



13 

14 typedef uint _ii<i>* 
15 

16 #define NO_IID 0 
17 

18 # define IID COMPAT ( i 1 , i2 ) \ 



19 ((il) — (i2) I i \ 

20 (il) == IIDJMPOLX | | \ 

21 (i2) =- IID_I_POLY ) 
22 

23 /* support macro definitions 

24 



25 class ^COMPONENT; // forward 
26 

27 class INTERFACE 



28 { 

29 public: 

30 const _iid iid; 

31 const ^COMPONENT *const objp; 

32 

33 public: 

34 ^INTERFACE (_iid id, ^COMPONENT *op) : iid (id) , objp (op) { } 
35 

36 protected: 

37 virtual -^INTERFACE (void) { } // (hack) - adds vtbi - simplifies ptr casts 

38 tdefine I FACE OFFSET_OP0 1 // 1st operation starts at index 1 in vtbl 

39 } ; // Keep in sync! 
40 

41 #define INTERFACE (i) \ 

42 class i : public ^INTERFACE \ 

43 { \ 

44 public: \ 

45 i (^COMPONENT *op) : ^INTERFACE (IID_##i, op) { } \ 

46 protected: \ 

47 i (void) : ^INTERFACE (0, NOLL) { } \ 

48 i <i£ ir) : ^INTERFACE (0 , NUUu) { } \ 

49 virtual -i (void) { } 
50 

51 #define END_INTERFACE \ 

52 } ; 



53 

54 #de£ine CONSTANTS public: 

55 tdefine BUSES public: 

56 #define OPERATIONS public: 

57 tdefine METHODS public: 

58 

59 #define DEFINE BUS \ 
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1 struct BUS \ 

2 { 
3 

4 #definel£tJS(-x) \ 

5 struct x \ 

6 { 
7 

3 #define END_BUS \ 
9 } ; 

10 

11 # define INTERFACE_BUS (x) \ 

12 typedef x BUS 
13 

14 tdefine DEFAULTS (x) \ 

15 BUS (void) { x; } 

16 

17 # define BUSJDEFAULTS (b ,x) \ 

18 b (void) { x; } 

19 

20 Idefine FACTORED EFAULTS (x) \ 

21 FACTOR* JBUS (void) { x; i 
22 

23 #de£ine OP(o) \ 

24 virtual _stat o (BUS *bp) = 0 
25 

26 #endi£ // IFACE DEFINED 
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! /* */ 

2 /* XFC; Project Interfaces */ 

3 /* */ 

4 /* " ~ - I_TERMINAL.H - Terminal control */ 

5 /* */ 

6 /* Copyright (c) 1994-95 Object Dynamics Corp. All Rights Reserved. */ 

7 /* */ 



3 

9 ffifndef __I_TERMINAL_DEFINED 

10 fdefine JCjrERMINAIi_DEFINED 
11 

12 

13 BUS ( B TERMINAL ) 



14 // terminal identification 

15 rhar *namep ; // terminal name 

16 uint name_sz; // size of name buffer 
17 

18 // terminal information 

19 uint "tyP e * If terminal type (physical mechanism + direction) 
W 20 uint32 card ; // terminal cardinality 

yp 21 flglS attr ; // terminal attributes 

a 22 

£3 23 // connection data 

SI 24 iid iid ; // terminal interface id (contract id) 

l? 25 ""INTERFACE *ip ; // v- table interface 

5 26 

27 // connection identification 

%| 28 id32 conn_JLd; // connection id (as defined by the terminal) 

29 ""COMPONENT *comp ; // pointer to component ($$EV_EVB, see notes) 

30 ~ id lin3c_id; // link id ($$EV_EVB, see notes) 



32 END_BUS 

33 

34 fdefine IID_I_TERMINAL 0x03 

35 

36 INTERFACE (IJTERMINAL) 

37 

38 /* V 



39 CONSTANTS 

40 enum TYPE 

41 C 

42 TJENPUT - 0, 

43 T^OUTPOT = 1, 

44 } ; 
45 

46 enum ATTR 

47 { 

48 A_STDSIG = (1UL « 14) , // terminal for standard signal 

49 A_FLOATING = (1UL « 15) , // terminal is ok to be unconnected 

50 } ; 
51 



52 /* — */ 

53 BUSES 

54 INTERFACEJBUS ( BJXEBMINAL ) ; 
55 

56 /* ~~ */ 

57 OPERATIONS 

58 OP ( acquire ) ; * * - r , . . , 

59 OP ( release ) ; 
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OP 


( set_context 
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OP 


( qry_open 
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( qry_get__first 
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OP 


( qry_get_last 
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OP 


( qry^ge t_ne x t 


10 


OP 


[ qry^get prev 


11 


OP 


[ qry_ge t_cuxr 


12 


OP 


( qry close 



13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
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END INTERFACE 



/* declaration macro */ 



#def ine 
IDEF 

OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 



DECLARE_I_TERMINAL (c , 1 ) 
(c, 1, IJTERMINAL) 
acquire 
release 
connect 
disconnect 
get_inf o 
get_context 
set_context 
qry open 
qry_get_first 
qry_ge t_las t 
qry_jget_next 
qry_get__prev 
qry_ge t_cur r 
qry_close 



END_IDEF 

/* allow for semicolon */ 
typedef int c## 1 ## DECLARE 



// Descriptions: 



TERMINAL DUMMY 



acquire 
namep 
comp 
link_id 
(ip) 

type 

iid 

conn id 



// on 
// in : 
// 
II 

It out: 
II 
// 
If 

// act: 
// s : 
// 

// on 
// in : 
// 

connected 

// 
// 

// camp 
// link id 



terminal name 

component on the other side 
link id 

if type is T_INPUT - pointer to the terminal interface 
terminal type (IJTERMINAL : : Tjcxx) 
expected Interface id 

connection id assigned for this connection 
acquire connection context 
STJNOTJFOOND - terminal not found 
ST NO ROOM - terminal cardinality exhausted 



release 
namep 



- terminal name 

- if type is T__OUTPUT 



interface to which the output was 



if type is T^INPOT - interface to release 

($$ may not be needed and in most cases can not be provided) 

- component on the other side 

- link id 
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I 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 



// conn_id - connection id assigned by this terminal on acquire 

// out: void 

// act : .^release terminal 

// s ST — NONACTION - terminal was not connected 

// (to/via specified interface or component) 

// ST NOT FOUND - terminal not found 



// on 
// in 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 



out 
act 



connect 

namep - terminal name 

type - terminal type (I_TEBMINAL : : T_xxx) 
iid - expected interface id 

(ip) - if type is T_OUTFUT - interface to connect to 

comp - component to connect to 
linx_id - link id 

conn_id - connection id assigned by this terminal on acquire 
void 

connect terminal 

ST_BEFOSE - interface mismatch 

ST NOT FOUND - terminal not found 



{e.g. , unacceptable IID) 



// on 
// in 
II 

connected 

ii 



disconnect 

namep - terminal name 
ip - if type is T_OOTPOT 



interface to which the output is 



// 
// 
// 
// 
// 
// 
// 
// 



out 
act 
s 



// on 
// in : 
// out: 
II 
If ' 
II 

II act 
// s 
// nb 
// 



if type is T_INPUT - interface to disconnect 
($$ may not be needed and in most cases can not be provided) 
comp - component to disconnect from 
linkjid - link id 

conn id - connection id assigned by this terminal on acquire 
void 

disconnect terminal 

ST NO ACTION - terminal was not connected 

(to/ via specified interface or component) 

get_inf o 

namep - terminal name 

type - terminal type (I_ TERMINAL: :T_xxx) 
iid - interface id of terminal 

card - terminal cardinality (static, not current) 
attr - terminal attributes 

return information about specified terminal 
ST NOT FOUND - terminal not found 

the information returned by this operation is not affected by 
the current state of the terminal 



// on get_context 
// not implemented 

// on set_context 
// not implemented 



// on 
// in 
// out 
// act 
// s 
// 

// on 



qry_opea 

namep - query string 

ctx - query context for subsequent qry__xxx operations 

open query on terminal namespace 
ST_NO_R0OM - too many open queries ; 
ST_BAD_SYNTAX - bad query syntax 

qry get first 
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1 // in : namep - buffer for name or NULL 

2 // (name^sz) - size of buffer, [bytes] 

3 // ctx - query context from previous qry_xxx operation 

4 // out : i"*namep) - terminal name 

5 // ctx - query context for subsequent qry xxx operation 

6 // act: get first matching terminal name 

7 // s : ST NOT FOUND - no matching terminals 
3 

9 //on qry_get_last 

10 // in : namep - buffer for name or NULL 

11 // <name_sz> - size of buffer, [bytes] 

12 // ctx - query context from previous qry^xxx operation 

13 // out: (*namep) - terminal name 

14 // ctx - query context for subsequent qry_xxx operation 

15 // act: get last matching terminal name 

25 lis. : ST NOT FOUND - no matching terminals 
17 

IS //on qry_get_next 

19 // in : namep - buffer for name or NULL 

20 // (name_sz) - size of buffer, [bytes} 

21 // ctx - query context from previous qry^xxx operation 

22 // out: (*namep) - terminal name 

23 // ctx - query context for subsequent qry_xxx operation 

24 // act: get next matching terminal name 

25 // s ; ST NOT FOUND - no more matching terminals 

26 

27 //on qry_get_prev 

28 // in : namep - buffer for name or NULL 

29 // (name_sz) - size of buffer, [bytes] 

30 // ctx - query context from previous qry_xxx operation 

31 // out: (*namep) - terminal name 

32 // ctx - query context for subsequent qry_xxx operation 

33 // act: get previous matching terminal name 

34 Us : S T_NOT_FOUND - no more matching terminals 

35 

36 // on qry_get_curr 

37 // in : namep - buffer for name or NULL 

38 // (name_sz) - size of buffer, [bytes] 

39 // - ctx - query context from previous qry_xxx operation 

40 // out: (*namep) - terminal name 

41 // act: get current terminal name in query 

42 // nb : ctx is unchanged 

43 

44 //on qry_close 

45 // in : ctx - query context from qry_open or another qry_xxx operation 

46 // out: void 

47 // act: close query on terminal name space 

48 

49 // $$EV_EVB — fields used by the event bus terminal interface 

50 // Note: comp in the bus is provided for use by connectivity components only. 

51 // It should not be used by regular components £ assemblies. 

52 // comp contains pointer identifying the component at the other side 

53 // of the link. 

54 // Both link_id and comp may be used for identification of the particular 

55 // connection on a terminal. They should not be interpreted J.n any way 

56 // nor the comp should be dereferenced. Sometimes, the ip field on; 

57 // disconnect and release may be used for connection identification, too. 

58 

59 // Note: the assembly manager (dflt assembly implementation) does not store 
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1 // the connection id — so it may not be provided on disconnect/ release 

2 

3 // Notej $$ on disconnect ip may not be provided in many cases: 

4 // _^a) - when output array is connected to input array 

5 // b) when assy output is connected to input array 

6 // In both examples above the input ptr cannot be obtained from the output 

7 // and therefore cannot be passed on input's disconnect. 

8 // (Generally, none of the existing parts uses ip for identification) 

9 

10 #endif // I TERMINAL DEFINED 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 



IFC: Project Interfaces 
I_PR0P.H - Property 
Copyright fc) 1994-95 Object Dynamics Corp. All Rights Reserved. 



*/ 

V 

*/ 

V 

*/ 
*/ 
*/ 



Ufndef 
#define 



_I_PROP_pEFINED 
"i PROP DEFUSED 



/ * . type values */ 



#define 
#define 
#define 
#define 
# define 
Idefine 
#define 
Idefine 
#define 



PTJJSER 

PT_INT 

FTJJINT 

PT~CHAR 

PT_UPCHAR 

PT_STRING 

PTJfclAME 

PT__DATA 

PT NONE 



0 
1 
2 
3 
4 
5 
6 
7 
8 



BUS ( B PROP ) 



char 
size t 
uint32 
void 
size_t 
size_t 
ctx 



*namep 
name sz 
type 

*P 
sz 
len 
ctx 



END_BUS 

#define IID_IJPBOP 
INTERFACE (I PROP) 



0x02 



CONSTANTS 



/* 

BUSES 

INTERFACE BUS ( B PROP ) ; 



// user defined 

// signed int 

// unsigned int 

// uchax 

// upcaseduchar 

// asciiz, no multiple spaces 

// upcased STRING 

// data string (Oxlb # l -0', etc.) 

// 1st invalid value of .type 



/* 

OPERATIONS 

OP ( get 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 



( set 
( chx 

( get_inf o 
( qry_open 
( qry__get_first 
( qryjget_last 
( gxy__get_next 
( qry_ge t_prev 
( qry get curr 
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21 
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27 
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29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
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41 
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OP ( qry close 

END_I NTERFACE 

/* declaration macro */ 

# define DECLARE_JC_PROP ( c , 1 ) 
IDEF (c, 1, I_PROP) 
get 
set 
chic 

get info 
qry_open 
qry_get_f ir s t 
qry_ge t_las t 
qry_ge t_nex t 
qry_getjprev 
qry__get_curr 
qry^close 



) ; 



OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
OPDECL 
END_IDEF 

/* allow for semicolon */ 
typedef int c##JLJf# DECLARE 

// Descriptions 



\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 

IE I PROP DUMMX" 



// 


note : 


on get, 


set and chk - if value type is specified and it doesn't match 


the 






// 




internal type of the property , the component may (implementation- 


defined) 






// 




convert the value to the appropriate type; 


// 


on 


get 




// 


in : 


namep 


- property name 


// 




P 


- buffer for value or NULL 


// 




<sz) 


- sire of buffer (if p not NULL) , [bytes] 


// 




type 


- requested type or IP_NONE for any 


// 


out: (*p) 


- value 


// 




len 


- value length (for both fixed & var size types) , [bytes] 


// 




type 


- property type 


// 


act: 


get property value 


// 


s : 


ST BAD 


NAME - property name not found 


// 




ST OVERFLOW - buffer too small 


// 




ST REFUSE - incorrect type 


// 




ST_BAD_ 


ACCESS - property is write- only 


// 


on 


set 




// 


in : 


naaoep 


- property name 


// 




P 


- buffer for value or NULL to clear 


// 




den) 


- size of value (for var size values) , [bytes] 


// 




type 


- type or IP_NONE if not known 


// 


out: 


void 




// 


act: 


set property value 


// 


s : 


STJBAD_ 


NAME - property name not found 


// 




ST BAD*" 


VALUE - bad property value % 


// 




ST OVERFLOW - value too long 


// 




ST REFUSE - incorrect type 1 


// 




ST_BAD_ 


ACCESS - property is read-only / * 


// 


on 


chk 
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// 


in : 


2 


// 




3 


// 




4 


// 




5 


// 


out : 






act I 


7 




S I 


o 
o 






J 


/ / 




IU 


/ / 




l 1 
1 1 


/ / 




12 






1 7 






14 


/ / 


on 


15 


/ / 


in : 


10 


/ / 


Out . 


T"7 
1 / 


/ / 


cLC w « 




/ / 


S • 




/ / 


no . 




/ / 




21 






22 




on 


2J 


/ / 


in : 


24 


/ / 


out:: 


o < 

25 


/ / 




26 


// 


s : 


27 


/ / 
/ / 




28 






29 


/ / 


on 


30 


// 


in : 


31 


// 




32 


// 




33 


// 


out: 


34 


// 




35 


// 


act: 


36 


// 


s : 


37 






3S 


// 


on 


^ ft 
39 


// 


'in : 


40 


// 




41 


/ / 




42 


// 


out: 


43 


/ / 




44 


/ / 


act: 


45 


/ / 


s ; 


46 






47 


// 


on 


48 


// 


in : 


49 


// 




50 


// 




51 


// 


out: 


52 


// 




53 


// 


act: 


54 


// 


s : 


55 






56 


// 


on 


57 


// 


in : 


58 


// 




59 


// 





- property name 

- buffer for value or NULL to* clear 

- size of value (for var size values) 

- value type or IP_N0NE if not known 



namep 
P 

_{len> 
!3ype 
void 

check if property may be set to value (valchk) 



[bytes] 



ST_BAD_NAME 

ST_BAD_VALUE 

ST OVERFLOW 

STJREFUSE 

ST BAD ACCESS 



- property name not found 

- bad property value 

- value too long 

- incorrect type 

- property is read-only 



get_jinf o 

namep - property name 
type - property type 

get information about specified property 
ST BAD NAME - property name not found 

the information returned by this operation is not affected by 
the current value of the property 

qry_open 

namep - query string 

ctx - query context for subsequent qry__xxx operations 

open query on property space 

ST NO ROOM - too many open queries 

ST~BAD SYNTAX - bad query syntax 

qryjget_ first 

namep - buffer for name or NULL 
(name sz) - size of buffer, [bytes] 

ctx - query context from previous qry_xxx operation 

(*namep) - property name 
ctx - query context for subsequent qry^xxx operation 

get first matching property name 
ST NOT FOUND - no matching properties 

qryjge t — las t 

namep - buffer for name or NULL 
(name sz) - size of buffer, [bytes] 

ctx - query context from previous qry_xxx operation 

(♦namep) - property name 
ctx - query context for subsequent qry_jcxx operation 

get last matching property name 
ST NOT FOUND - no matching properties 

qry_get_next 

namep - buffer for name or NULL 
(name_sz) - size of buffer, [bytes] 

ctx - query context from previous qry_xxx operation 

(♦namep) - property name 

ctx - query context for subsequent qry^xxx operation 

get next matching property name 
ST^NOT^FOUND - no more matching properties 

qry_getj?rev 

namep - buffer for name or NULL 
{name_sz) - size of buffer, [bytes} 

ctx - query context from previous qry xxx operation 
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// 


2 


// 


3 


// 


4 


// 


5 




6 


// 


7 


// 


8 


// 


9 


// 


10 


// 


11 


// 


12 


// 


13 




14 


// 


15 


// 


16 


// 


17 


// 


18 




19 


#e; 


20 





out: (*namep) - property name 

ctx - query context for subsequent qry xxx operation 

act: get previous matching property name ~* 
s - T ~~ST^_£70T_JFOUND - no more matching properties 

on qry_get_curr 

in : namep - buffer for name or NULL 
(name_sz) - size of buffer, t*>ytes] 

ctx - query context from previous qry xxx operation 

out: (*namep) - property name 
act: get current property name in query 
nb : ctx is unchanged 

on qry_close 

in : ctx - query context from qry_open or another qry_xxx operation 



lendif // I PROP DEFINED 
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1 /* v 

2 /* IFC: Project Interfaces */ 

3 /* _ */ 

4 /* ■ I_FACTORY.H - Component creation / destruction +/ 

5 /* */ 

6 /* Copyright (c) 1994-95 Object Dynamics Corp. All Rights Reserved. */ 

7 /* */ 

8 

9 #ifndef _I_FACTORY_DEFINED 

10 #define j:_FACTORY_DEFINED 
11 
12 

13 #define IID_I_FACTORX 0x01 
14 

15 INTERFACE (I_FACT0RS) 

16 

17 /* */ 

18 CONSTANTS 

19 enum 

20 { 

21 A_PRIMARY = (1UL « 14) , // create primary object (factory) 

22 A_NO_ALLOC = (1UL « 13) , // don't call new to alloc memory 

23 AJ3ENERIC ~ (1UL « 12) , // generic factory bus (no ext. data) 

24 ) ; 
25 

26 /* */ 

27 BUSES 

28 DEFMEJ5US 

29 flg32 attr; // factory attributes 

30 COMPONENT *objp; // ptr to component or memory 

31 ~" INTERFACE *termp; // terminal interface 

32 ^INTERFACE *propp; // property interface 

33 ~ctx ctx ; // creation context or NO_CTX 

34 END~BUS 
35 

36 /* . V 

37 OPERATIONS 

38 OP ( create jdflts ) ; 

39 OP ( create ) ; 

40 OP ( destroy ) ; 

41 OP ( get_part ifc ) ; 
42 

43 END_INTERFACE 

44 

45 /* declaration macro */ 
46 

47 #define DECLAR£_I_FACTORY ( c , 1 ) \ 

48 IDEF (e, l f ^FACTORY) \ 

49 OPDECL (create ) ; \ 

50 OPDECL { create j±f Its ) ; \ 

51 OPDECL (destroy ) ; \ 

52 OPDECL <get_part_ifc ) ; \ 

53 ENDJCDEF \ 

54 /* allow for semicolon */ \ 

55 typedef int c# #_!__## _DECLARE_I_FACTORY_DUMMY 

56 1 

57 /★ Descriptions : */ 

58 

59 // on create dflts (struct BUS or derived) 
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1 // in : void 

2 // out: attx - default attributes 

3 // objp - NULL 

4 // act:- "-fill FACTOR*_BUS with defaults 

5 

6 //on create (struct BUS or derived) 

7 // in : attr - object attributes (A_^xxx) 

8 // (objp) - ptr to allocated memory for object instance (if A NO ALLOC) 

9 // ctx - additional context or NO CTX 

10 // out: objp - ptr to new object 

11 // tennp - pointer to the terminal interface of the part 

12 // propp - pointer to the property interface of the part 

13 // act: create new object 

14 // nb : if A_GENERIC is set, then the bus passed is strictly I_FACT0R2 : : BUS and 

15 // not a derived one* 

16 // nb : ctx=NO_CTX is always accepted; some components may allow additional 

17 // parameters in/ through this field 
18 

19 //on destroy (struct BUS or derived) 

20 // in : void 

21 // out: void 

22 // act: destroy object 

23 

24 //on get_part_ifc (struct BUS or derived) 

25 // in : void 

26 II out: termp - pointer to the terminal interface of the part 

27 // P^opP - pointer to the property interface of the part 

28 // act: return part interfaces 

29 

30 #endif // I FACTORY DEFINED 
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1 /* v 

2 /* CLP: Collections Parts +/ 

3 /* . - v.\ */ 

4 /* ~~ CPJBBA.CPP - Bag on Byte Array */ 

5 /* */ 

6 /* Copyright (c) 1993-1994 Object Dynamics Corp. All Rights Reserved. +/ 

7 /* */ 

8 

9 # include <rtx_pre.h> 

10 tinclude <stdde£.h> 

11 tinclude <stdlib.h> 

12 tinclude <memory . h> 

13 #include <rtx_post.h> 
14 

15 tinclude <rtx.h> 

16 #include <asm.h> 

17 #include <thp.h> 
13 

19 tinclude <i£ace.h> 

20 tinclude <part*h> 
21 

22 tinclude <i_f actor. h> 

23 tinclude <i_prop.h> 

24 tinclude <i_drain«h> 

25 tinclude <i_bag.h> 

26 tinclude <i_agm.h> 

27 tinclude <ijayteax.h> 
28 

29 /* Definitions V 

30 

31 struct CP_BBA_ENTRX_HDR 

32 { 

33 enum ATTR 

34 { 

35 A_VALID - VALID, 

36 A_EREE = FREE, 

37 AJCILLED - KILLED, 

38 } ; 
39 

40 £lg32 attr; // attributes [A_VALID, A_FREE, AJKILLED] 

41 uint32 card; // cardinality 

42 }; 
43 

44 /** Component Definition */ 

45 
46 

47 tdefxne CP_BBA NAME W CP_BBA H 
48 

49 PART { CP_BBA > 
50 

51 /* V 

52 BUSES 

53 DEFAULT_FACTORy_BUS ( CP_BBA ) ; 
54 

55 /* */ 

56 INPUTS 

57 IDECL ( CP_BBA , factory , I_JACTOR2f j 

58 IDECL ( CF_BBA , term , IJTERMINAL ) 

59 IDECL ( CP BBA , prop , I_PROP ) 
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i IDECL ( CP_BBA , bag , I_BAG ) ; 

2 

3 . IDSCI^RST (CP_BBA> ; 

4 

5 OUTPUTS 

6 ODECL ( CP_BBS , arr , IJ3XTEARR ) ; 
7 

8 

9 ENDJPAJRT // CP_BBA 
10 

11 lifdef BIT32 

12 # define hmemcpy memcpy 

13 #define HUGE 

14 #else 

15 #define HUGE huge 

16 #endif 
17 

18 /* Definitions 

lb 19 

"5: 20 #define AGM CHUNK 1024 

C 21 

£ 22 BEGINJSELP ( CP_BBA > 

O 23 //"data 

III 24 uint32 n_entries; // number of entries 

31 25 void *buffp; // buffer for one entry 

dfl 26 uint32 buff_sz; // buffer size (dep. on data_sz) 

28 // properties 

29 uint32 data^sz; // data size 
U 30 uint32 key_sz; // key size 
£?! 31 uint32 key_off ; // key offset 
Q 32 char name [64] ; 

33 END SELF 
lh 34 

35 BEGIN_CIASS JDATA ( CP_BBA ) 
'"■^ 36 uint!6 instance^counter ; // 

37 END_CLA£SJ3ATA 

39 /* Interface declarations 

40 

41 DECXABE_IJTACTORX ( CPJBBA, factory ) ; 

42 DECIASE_l][TEBMINAL ( CP_BBA, term ) ; 

43 DECLARE"l_PBDP ( CPJBBA, prop ) ; 

44 DECLARE I~BAG ( CP_BBA, bag ) ; 
45 

46 DECLARE RST (CP BBA) ; 

47 ~ " 

48 /* I/O tables 

49 

50 INPUTJTABLE 

51 INPUT (CPJBBA, prop , X_PROP ) 

52 INPUT (CP_BBA, bag , I_BAG ) 
53 

54 INPUTJtST <CP_BBA> 

55 END_INPUT_TABLE 

56 ■ , 

57 OUTPUTJTABLE 

58 OUTPUT (CP_BBA, arr , X_BYTSASR } 

59 " v 
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23 
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31 

32 

33 

34 

35 

36 

37 
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39 
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END_OUTPUT_TAB LE 

/* Constants £ tables 



PROPERTIES 

/* type name 



base field 



min 



PROP_UINT ( " DATA_SIZE tt 
PROP_UINT ( "KE^SIZE" 
PROP_UINT ( 1f KEY__OFFSET " 

PROPJSTRING ("name" 
END_PROPERTIES 

/* I nit / Cleanup 

INIT (CP_BBA) 
{ 

/** init class data +/ 
cp->instance_counter = 0; 

REGISTER (CP_BBA) ; 

return (ST_OK) ; 

} /* INIT (CPJBBA) */ 

CLEANUP (CP_BBA) 
{ 

DEREGISTER (CPJBBA) ; 

return (ST_OK> ; 

} /* CLEANUP (CP_BBA) */ 

/+ Constructors - — >- 

DEFAULTJPART_CONSTRUCTORS (CP_BBA) ; 

/* ' Operations: factory 

DEFAULT JPARTJTACTORX <CP_BBA, factory); 
DEFAULT_PART_T£RMINAL (CF_BBA, term ) ; 
DEFAULT_?ART_PROP (CP~BBA, prop ) ; 

/* Operations — — — „_„„_„„, 

METHOD (CPJBBA, create dflts , FACTORY JBUS ) 
{ 

// ... 

return (ST_OK) ; 

} SND^METHOD /* CP_BBA, create_dflts * 

METHOD (CPJBBA, create , FACTOR* JBUS) 
{ 

_jstat s; 
/** valchJc */ 



, SELF, 3cey_sz 
, SELF, key^ofi 

, SELF , name 



1 


, 1024 


) , 


1 


, 1024 


) , 


0 


, 1023 


>, 


0 


* 64 


) , 
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1 if (bp == NULL) return (ST_NULL_PTR) ; 
2 

3 /** open interfaces */ 

4 OPEnJiKTERFACE (CP_BBA, factory ) ; 

5 if (bp->attr & I_FACTORY: :AJPRIMAR*) return (ST OK); // valid primary obj 

6 OPEN_INTERFACE (CPJBBA, term ) ; 

7 OPEN_INTERFACE (CPJBBA, prop ) / 

8 OPEN_INTSRFACE (CPJBBA, bag ); 

9 OPEN_RST (CP_BBA) ; 
10 

11 /** init self */ 

12 sp->n_entries « 0 ; 

13 sp->buffp = NULL; 

14 sp->buff_sz ~ 0; 

15 sp->data_jsz = 2; 

16 sp->key_sz = 2 ; 

17 sp->key_off = 0; 
18 

^ 19 /** internal reset */ 

^ 20 (void) call (sp->thisp->iRST, raise, NULL); 

S 21 

LS 22 /** special processing for default name */ 

fij 23 os_con_sprintf (sp->name, N %.50s%d tt , CP BBA NAME, ++ (cp->instance counter) ) ; 

k$ 24 

25 return (ST_QK) ; 

'I! 26 } END_METHOD /* CP_BBA, create */ 

fl 27 

"1 28 METHOD (CPJBBA, destroy, FACTORY JBUS ) 

£ 29 { 

fjj 30 /** close interfaces */ 

m 31 CLOSE_INTERFACE (CPJBBA, factory ); 

M : 32 CLOSE_INTERFACE (CP_BBA, term ) ; 

% 33 CLOSE_INTERFACE (CPJBBA, prop ) ; 

#; 34 CLOSEJCNTERFACE (C5JBBA, bag ) ; 

P 35 CLOSE^RST (CPJBBA) ; 

WiBKS 36 

37 /** free entry buffer */ 

38 if (sp- >buffp !- NULL) (void) os_smp free (sp->buffp) ; 

39 

40 /** init self +/ 

41 sp->n_jentries » 0; 

42 sp->buffp « NULL; 

43 sp->buffjsz =0; 

44 sp->data sz ■* 2; 
45 

46 return (ST_CK) ; 

47 } END_METHOD /* CP_BBA, destroy */ 
48 

49 /* Operations: bag */ 

50 

51 OPERATION { CPJBBA, bag, add ) 

52 { 

53 IJBYTEARR : : BUS ab ; 

54 uint32 i; 

55 CPJBBAJENTRY_HDR *hdrp ; 

56 byte *datap; 

57 _stat s; 
58 

59 /** valchk */ 
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1 if (bp == NULL) return (STJNULLJPTR) ; 

2 if (bp-Xiatap = NULL) return (ST_INVALID) ; 
3 

4 /** Ynteamal init */ 

5 hdrp = (CP_BBA_ENTRY_HDR *) sp->buffp ; 

6 datap = (byte *)sp->buffp + sizeof (*hdrp) ; 
7 

g / + * lookup */ 

9 for (i ■ 0; i < sp->n_en tries ; i++) 

10 { 

11 /** read entry */ 

12 ab'P ** sp->buffp; 

13 ab.sz = sp->buff_sz; 

14 ab.pos = i * sp->buff_sz; 

15 ab.len = sp- >buff_sz ; 

16 ab.attr = I_BYTEARR: :A_EXACT; 

17 s =» out (arr, read, £ab) ; 

18 if (s — ST_EOF) return (STJJNEXPECTED) ; 

19 ifjret (s, s) ; 
^ 20 

21 /** skip if empty */ 

IB 22 if ( (hdrp->attr ~= CPJBBAJEOTRx_HDR : :A_FR£E) 1 I 

|3 23 (hdrp->attr — CP_BBA_ENTR*_HDR : :A_XILLED) ) continue; 
ffi 24 

^ 25 /** skip if different */ 

26 if (meinen?) ( (void *) (datap + sp->key__off ) , 

27 (void *> (<byte *)bp->datap + sp->key_off) , 
'*~-4 28 sp->key_sz) I ~ 0) continue; 

* 29 

|3 30 /** sanity chk */ 

£ 31 if <hdrp->card — 0) return (ST UNEXPECTED); 

33 /** increment cardinality */ 

jz 34 if (hdrp->card < MAXUXNT32 - 1) <hdrp->card) ; 

13 35 else return (STjOVERTLOW) ; 

y. 36 

37 /** write back header only */ 

38 ab.p « hdrp; 

39 ab.len » sizeof (*hdrp) ; 

40 ab.pos =» i * sp->buff_sz; 

41 ab.attr » 0 ; ~~ 

42 s « out (arr r write, Sab) ; 

43 if (s » STJDVERTLOW) return (ST_UNEXPECTED) ; 

44 if ret (s, s) ; 
45 

46 /** pass cardinality */ 

47 bp->card = hdrp->caxd; 
48 

49 /** return */ 

50 return (ST_OK) ; 

51 } // for 
52 

53 /** add */ 

54 for (i = 0; i < sp->n — entries ; i++) 

55 { 

56 /** read entry */ 

57 ab.p = sp->buffp; 

58 ab.sar = sp->buf f_s2 ; 

59 ab.pos « i * sp->buff__sz; 
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1 ab.len =* sp->buf f_sz ; 

2 ab.attr » IJBYTEARR: :A_EXACT; 

3 s out (arr, read, &ab) ; 

4 " I_C*"(* — ST_EOF) return (STJUNEXPECTED) ; 

5 if_ret (s, s) ; 
6 

7 /** write if empty */ 

8 if ( <hdrp->attr == CP_BBA_ENTRY_HDR : : A FREE) != 0) 

9 { 

10 /** init header */ 

11 hdrp->card = 1 ; 

12 hdrp->attr = CP_BBA_ENTOY_HDR: :A_VALID ; 
13 

14 /** init data */ 

15 memcpy ((void * ) da tap , bp->datap, sp->data_sz) ; 

16 

17 /** write header and data */ 

18 ab.p = sp->buffp; 

19 ab.len « sp->buff_sz; 

20 ab.pos = i * sp->buff_sz; 

21 ab.attr = 0; 

22 s = out {arr, write, &ab) ; 

23 if (s STJOVERFLOW) return ( ST ^UNEXPECTED ) ; 

24 if^ret (s, s) ; 

25 

26 /** pass cardinality */ 

27 bp->card - hdrp->card; 

28 

29 /** return */ 

30 return (STJOK) ; 

31 | 

32 } // for 

33 

34 /** ch* for overflow */ 

35 if (sp->n_en tries >» MAXUINT32 - 1) return (ST_NOJROOM) 

36 

37 /** init header */ 

38 hdrp->card « 1; 

39 hdrp->attr = CPJBBA_ENTRY_HDR: :A_VALID; 
40 

41 /** init data */ 

42 memcpy ((void *) datap , bp->datap , sp->data_sz) ; 

43 

44 /** append */ 

45 ab.p =« sp->buf fp ; 

46 ab.len => sp->buff_jsz; 

47 ab.pos » sp«>n entries * sp->buf f si ; 

48 ab.attr * IJBXTEARR: :AJ3ROW; ~" 

49 s =» out (arr, write, £ab) ; 

50 if (s — STJOVERFLOW) return (STJCJNSXPECTED) ; 

51 if ret (s , s) ; 

52 

53 /** increment number of entries */ 

54 (sp->n entries )++; 
55 

56 /** pass cardinality */ 

57 bp->card m hdrp->card; 

58 

59 return (ST OK) ; 
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1 } ENDJDPERATION /* bag, add */ 
2 

3 // TO DO: other operation of I_BAG to be implemented here... 

4 " ~ y • 

5 /* signals 

6 

7 SIGNALJRST ( CP_BBA ) 

8 { 

9 I_AGM::BUS ab; 
10 — stat s; 
11 

12 /** free entry buffer */ 

13 if (sp->buffp != NULL) (void) os_snp_f ree (sp->buffp) ; 
14 

15 /** init self */ 

16 sp->n_en tries = 0; 

17 sp->buffp = NULL; 

18 sp->buff_sz - sizeof ( CP_BBA_ENTRY_HDR) + max (sp->data__sz , 1) ; 
19 

20 /** alloc entry buffer */ 

21 ifjcet (s, os_sn5>_alloc (sp->buf fjsz , 6 (sp->buf fp) ) ) ; 

22 

23 return <ST_OK) / 

24 } £ND_SIGNAL /* RST */ 
25 

26 
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/* - 
/* 

/* - 
/* 
/* 
/* 

/* " 
/* Version 1.10 
/* 



EVP: Event Flow Parts 
EVJPCN.CPP - POLY T-Connector 
Copyright (c) 1994-95 Object Dynamics Corp. All Rights Reserved. 



*/ 

V 

*/ 

V 
V 

*/ 

V 

*/ 
*/ 



#include <rtx_pre.h> 
# include <stddef.h> 
# include <stdlib,h> 
# include <rtx_post.h> 

# include <rtx.h> 
# include <asm.h> 

#include <iface.h> 

tinclude <part.h> 

# include <assembly . h> 

# include <i_f actor, h> 
#include <i_prop,h> 
# include <i_term.h> 
#include <i_drain.h> 
#include <i_poly.h> 

#define EV_PCNJ?AME "EV_PCN" 

ASSEMBLY (EV PCN) 



/* 

BUSES 

DEFAULT FACTORY BUS (EV PCN) ; 



/* 

INPUTS 



39 


IDECL 


( 


EV_PCN 


, factory 




I_FACTORY 


) ; 


40 


IDECL 


( 


EVJ?CN 


, term 




IJCERMINAL 


>; 


41 


IDECL 


{ 


EVJPCN 


, termi 


t 


I_TERMINAL 


>; 


42 


IDECL 


( 


EV~PCN 


, prop 




I_PROP 


); 


43 


IDECL 


( 


EVJPCN 


, propi 


$ 


I_PROP 


); 


44 


IDECL 


( 


EVJPCN 


, in 




I_POLY 


); 


45 
















46 


OUTPUTS 














47 


ODECL 


( 


EVJPCN 


, out 




I_POLY 


); 


48 


ODECL 


< 


EV_PCN 


, aux 


t 


I_DSAIN 


) ; 



END_ASSEMBLY 

/* Definitions -■ 

BEGIN_SELF (EVJPCN) 
DEFAULT ASM SELF; 
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/* group properties */ 
uint32 evjldjnin ; 

uint32 ev_idjnax ; 

END_ SELF 

BEGIN_CLASSJ3ATA (EVJPCN) 

// none 
END_CLASS_DATA 

DECLARE_ASM (EV_PCN) ; 

/★ I/O tables 



INPUT_TABLE 

INPUT (EVJPCN , prop 

INPUT (EV_PCN, in 

END_INPUT_TABLE 

OUTPUTJTABLE 

OUTPUT_I (EVJPCN / out 
OUTPUT_I (EVJPCN, aux 

END_OUTPUTJTABLE 

/* Constants & tables - 



_PROP 

"poly 



I_POL* 
I DRAIN 



ASMJPARTS 

NEW_PART ( p2d, EV_P2D ) 
NEWJ?ART ( ten, EV_TCN ) 
NEWJ?ART ( d2p, EV_D2P ) 

END_ASM_PARTS 

ASM_?ARAMETRI ZATI ON 

// none 
END_ASMJPARAMETRI ZATI ON 

ASM LINKS 



38 


// 


from 


output 


to input 


39 










40 


LINK 


( * , 


in 


, p2d , in 


41 


LINK 


( p2d, 


out 


, ten , in 


42 


LINK 


( ten. 


out 


, d2p, in 


43 


LINK 


( d2p, 


out 


, * t OM± 


44 


LINK 


( ten, 


aux 


, * , aux 


45 










46 


END_ASM_ 


LINKS 







ASM PROPERTYJ3ROUP ( ev_id_min_group ) 

ASM_PROP_MEMBER { ten , OUT . EVJID_MIN ) 
ASM PROP MEMBER ( ten , AUX . EV_ID_MIN > 

END_ASM_PROPERTY_GROUP 

ASMJPROPERTYjSROUP ( ev_idjaaxjgroup ) 

ASM_PROP_MEMB£R ( ten , OUT . EV_ID_MAX ) 
ASM_PRQP_MEMB£R ( ten , AUX . EV_ID_MAX ) 

END ASM PROPERTY GROUP 



ASM_PROPERTIES 

ASM PROP ALIAS 



( OUT. INVERT 



, ten , OUT. INVERT 
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ASM_PROP_ALIAS { AUX. INVERT 

ASM_PROP_GROOP { EV_ID_MIN 

ASM_PRPP_GROUP ( EV_ID_MAX 
END ASfcTPROPERTIES 



, ten , AUX. INVERT 

, ev_id_min_group 
t ev_id_max_group 



ASM_GROUP_PROPERTY_DES C 
/ * "type name 



base field 



PROPJJIOT ("EVJEDJMIN" , SELF, evJLdjnin , MINUINT32 , MAXUINT32 ) 

PROP_UINT ("EV_ID_MAX" , SELF, ev_id_max , MINUINT32 , MAXUINT32 ) 

END_ASM_GROUP_PROP£RTY JDES C 
DEFAULT ASM <EV PCN) ; 
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1 /* 

2 /* 

3 /* 



IPC: Project Interfaces 



V 
V 

*/ 

V 
V 
V 
V 



4 /* - - 



I_POLY.H - Polymorphic 



5 /* 

6 /* 

7 /* 



Copyright (c) 1994-95 Object Dynamics Corp. All Rights Reserved. 



3 

9 #i£nde£ _I_POLY_DEPINED 

10 #define _I POLYJDEPINED 
11 

12 Sdefine IIDJCJPOLY 0x04 
13 

14 INTERFACE (I_POLY) 
15 

16 /* */ 

17 CONSTANTS 



18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
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/* 

OPERATIONS 



BUSES 



OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 



OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 
OP 



DEFINEJBUS 

// none 
END BUS 



OP 



opO 

opl 

op2 

op3 

op4 

op5 

op6 

op7 

op 8 

op 9 

oplO 

opll 

6pl2 

opl3 

opl 4 

oplS 

opl 6 

opl7 

opia 

opl9 
op20 
op21 
op22 
op23 
o P 24 
op25 
op2€ 
op27 
op28 
op29 
op30 
op31 
op32 




*/ 



FIG. 25A 



1 


OP ( 


op33 


2 


OP ( 


op34 


3 


OP ( 


op35 


4 


- " ( 


op36 


5 


" OP ( 


op37 


6 


OP ( 


op38 


7 


OP ( 


op39 


S 


OP ( 


op40 


9 


OP ( 


op41 


10 


OP ( 


op42 


11 


OP { 


op43 


12 


OP ( 


op44 


13 


OP ( 


op45 


14 


OP ( 


op46 


15 


OP ( 


op47 


16 


OP ( 


op48 


17 


OP ( 


op49 


18 


OP ( 


opSO 


19 


OP ( 


opSl 


20 


OP ( 


op52 


21 


OP { 


op53 


22 


OP ( 


op54 


23 


OP ( 


op55 


24 


OP ( 


op5 6 


25 


OP ( 


o P 57 


26 


OP { 


op 5 8 


27 


OP ( 


op59 


2S 


OP ( 


op60 


29 


OP ( 


op61 


30 


OP ( 


op62 


31 


OP ( 


op63 


32 






33 


END INTEKTACS 


34 






35 


/* declaration macro * 


36 






37 


#define DECLABE_I_POLY 


38 


IDEF (c, 1, I POLY) 


39 


OPDECL 


( cpO 


40 


OPDECL 


( opl 


41 


OPDECL 


( op2 


42 


OPDECL 


( op3 


43 


OPDECL 


( op 4 


44 


OPDECL 


( op5 


45 


OPDECL 


( op6 


46 


OPDECL 


( op 7 


47 


OPDECL 


( opQ 


48 


OPDECL 


( op9 


49 


OPDECL 


( oplO 


50 


OPDECL 


i opll 


51 


OPDECL 


( op 12 


52 


OPDECL 


( op!3 


53 


OPDECL 


( op!4 


54 


OPDECL 


( opl5 


55 


OPDECL 


( opl6 


56 


OPDECL 


{ opX7 


57 


OPDECL 


( opl8 


58 


OPDECL 


( opl9 


59 


OPDECL 


{ op20 



\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 



FIG. 25B 



1 


OPDECL 


( op21 ) 


\ 


2 


OPDECL 


( op22 ) 


\ 


3 


OPDECL 


( op23 ) 


\ 


4 


- - "OPDECL 


( op24 ) 


\ 


5 


OPDECL 


( op25 ) 


\ 


6 


OPDECL 


( op26 ) 


\ 


7 


OPDECL 


( op27 ) 


\ 


8 


OPDECL 


( op28 ) 


\ 


9 


OPDECL 


( op29 ) 


\ 


10 


OPDECL 


( op30 ) 


\ 


11 


OPDECL 


[ op31 ) 


\ 


12 


OPDECL 


{ op32 ) 


\ 


13 


OPDECL 


( op33 ) 


\ 


14 


OPDECL 


( op34 ) 


\ 


15 


OPDECL 


( op35 ) 


\ 


16 


OPDECL 


( op36 ) , 


\ 


17 


OPDECL 


( op37 ) , 


\ 


18 


OPDECL 


( op38 ) , 


\ 


19 


OPDECL 


( op39 ) , 


\ 


20 


OPDECL 


( op40 ) , 


\ 


21 


OPDECL 




\ 


22 


OPDECL 


( op 4 2 } , 


\ 


23 


OPDECL 


( op 4 3 ) t 


\ 


24 


OPDECL 


( op 4 4 } , 


\ 


25 


OPDECL 


{ cp45 ) i 


\ 


26 


OPDECL 


( op46 ) t 


\ 


27 


OPDECL 


( 01347 } t 


\ 


28 


OPDECL 


( op4S ) , 


\ 


29 


OPDECL 


( op49 ) , 


\ 


30 


OPDECL 


f op50 ) , 


\ 


31 


OPDECL 




\ 


32 


OPDECL 


( op52 ) t 


\ 


33 


OPDECL 




\ 


34 


OPDECL 


( op54 ) t 


\ 


35 


OPDECL 

W4p4 


( op55 ) , 


\ 


36 


OPDECL 


( op5£ } , 


\ 


37 


OPDECL 


( op57 ) , 


\ 


38 


OPDECL 


( op58 ) , 


\ 


39 


OPDECL 


( op59 ) , 


\ 


40 


OPDECL 


( op60 ) , 


\ 


4-1 


OPDECL 


( op61 ) , 


\ 


42 


OPDECL 


( op 6 2 ) , 


\ 


43 


OPDECL 


( op 6 3 ) , 


\ 


44 


END IDET 




\ 


45 


/* allow for semicolon */ 


\ 


46 


typedef int c# #JMf #_DECLARE_X_POLY__DUMM¥ 


47 








48 








49 


lendif // _I_ 


POLY_DEFINED 




50 









FIG. 25C 





EBB 


i 


k 






Z 




t 


RAI 




z 


Q 

1 




RAI 






G 

1 













— V 

CO Q. 

u is 

s el 
2l| 

•If 

= s 



V 



3 
O 



ft 

CO ^5 
E o 
~ a 

.£ 3 

4 E 



z 

< 
a: 
□ 



<k 


k 




z 


z 


z 


< 


< 


< 








a 


□ 


□ 


i 


i 


1 



3 
O 



3 
O 



CO 

o 



3 
O 



< 

H 
CD 



IE* 



CO 



cf 



>% 

CO 
u. 
u. 

CO 

c 

1 

0) 
O) 

c 
D 



Z 

< 

q 





. .... t 


i ik 


z 


z 


z 


< 


< 


< 




on 




1 3 


a 


a 

i 




i 





CO 

O 

LL 



v 



z 

Q 



v 



0 
m 
SB 

1 

m 

i 



z 


Z 


z 


PDRAI 


I 






.•-3 



1 I I I 



V 



fill 



I 



CM 
0 



is 






t 


It! it 









if 



HI 
I 



US 



ill 



i 



i 



-sza 



f 3' 



-a 



T3- 



1^ 
CM 

O 



a 

1 

?v 
<n 

m 

H 
0 

1 



< 



I DRAIN 



in 



out 



idle 



DSY 



DRAIN 



With External Drive 



< 



I DRAIN 



in 


out < 




DSI 



I DRAIN 



Without External Drive 



< 



!_QUERY r 


in 


^REQUEST — > 
<4 ► 


<- IJREPLY 




CSP 



Contract Splitter 



FIG. 28 




r- CO E 

3 3 3 3 
OOOO 



5 

0 

c 

> 

> 
.0 

T5 
0) 



3 3 3 3 
0 0 0 0 



c 

0 

o 
>» 

r 

CO 

a 



r 



CM 

g 



I- 
s. 



z 

< 

(X 
Q 



V 



V 



1 POLY 


in 


out i 


1 DRAIN 

, T— ». 


» 








P2D 



Converts any contract to l_DRAiN 



1 DRAIN 


in 


out * 


I POLY 
, r »> 


» 










D2P 





Converts IJDRA1N to any contract 



1 DRAIN 


in 


out < 


l_DRA!N 
i ■ 


— ► 










X16 





Operation recoder 



FIG. 30 



